home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / IVBSRC.ZIP;1 / PRTINFO1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-07-04  |  3.0 KB  |  88 lines
  1. Form1
  2. Get default printer info
  3. MS Sans Serif
  4. Form1%
  5. Command2
  6. Command1
  7. Get Default Printer Info
  8. lblLPI
  9. Label1
  10. lblPort
  11.     lblDriver
  12. lblPrinter
  13. Form_Click
  14. GetProfileString
  15.     lpAppName
  16.     lpKeyName
  17.     lpDefault
  18. lpReturnedString
  19. nSizeU
  20. Command1_Clickg
  21. lpRetStr
  22. NumChars&
  23. NullStr
  24. lpRet
  25. koRetStr
  26.     CommaPos1`
  27.     CommaPos2=
  28. lblPrinter
  29. Caption
  30.     lblDriver
  31. lblPort
  32. Command2_Click
  33. DeviceInfo
  34. Device_Error    
  35.     PageScale
  36. GetDeviceCaps
  37. Printer
  38. LOGPIXELSX
  39. LOGPIXELSYn
  40. FALSEG
  41. POINTAPI
  42. PageSizex
  43. Result8
  44. Escapeu
  45. GETPHYSPAGESIZE
  46. Orientation
  47. GETSETPRINTORIENT
  48. lblOrientation
  49. X_Size
  50. Y_Size
  51. Vertical_resolution
  52.     Page_Size
  53. lblPaperSize
  54. lblXSize
  55. lblYSize
  56. lblVerticalResolution
  57.     lblScaleX
  58.     lblScaleYT
  59. Lines_Per_InchB
  60. Pixels_Per_Inch
  61. TextMetrix
  62. TEXTMETRIC
  63. GetTextMetrics
  64. tmHeight
  65. tmExternalLeading
  66. Lines_Per_Inch
  67. lblLPI^
  68. Kernel|
  69. Command1_Click
  70. windows"
  71. device
  72. Printer: "
  73. Driver: 
  74. Port: 
  75.  lblOrientation.Caption = "Orientation: Portrait")
  76.  lblOrientation.Caption = "Orientation: Landscape"
  77.  lblOrientation.Caption = ""
  78.   lblPaperSize.Caption = "Page Size:" + Page_Size$ + " inches"
  79.   lblPaperSize.Caption = ""a
  80. lblXSize.Caption = "X Size = " + Str$(X_Size!)
  81. lblYSize.Caption = "Y Size = " + Str$(Y_Size!)
  82. lblVerticalResolution.Caption = "Vertical Resolution = " + Str$(Vertical_resolution)
  83. lblScaleX.Caption = "Pixels X: " + Str$(PageScale.X)
  84. lblScaleY.Caption = "Pixels Y: " + Str$(PageScale.Y)
  85. Command2_Click
  86. DeviceInfo
  87. Lines_Per_Inch
  88.